home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 13 / 013.d81 / ezdir boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  793b  |  30 lines
  1. 1 rem autodir boot
  2. 2 iflf<>0then200
  3. 5 co=53280:pokeco,2:pokeco+1,0
  4. 10 poke53272,23:print"[147]"tab(85)"  [158] [197] [218]  [160][160][196][160][201][160][210][160][197][160][195][160][212][160][207][160][210][160][217] "
  5. 12 printspc(9)"[215]ritten by [210].[215]. [203]ober"
  6. 14 printspc(6)"[204][207][193][196][211][212][193][210] is not public domain."
  7. 15 print"   [208]lease respect the author's rights.":gosub99
  8. 20 print"   1. [204][207][193][196] and [210][213][206] [197][218]-[196][201][210]."
  9. 22 print"   2. [204][207][193][196][160]and [210][213][206][160][197][218]-[196][201][210] [195][210][197][193][212][207][210]."
  10. 24 print"   3. [194]ack to [204][207][193][196][211][212][193][210]."
  11. 26 print"[215]hich ?";
  12. 28 poke198,0:wait198,1:geta$:a=val(a$)
  13. 30 ifa<1ora>3then28
  14. 32 r$="run"
  15. 34 ifa=1thenlf=1:load"ezdir",8,1
  16. 36 ifa=2thenf$="ezdir creator"
  17. 38 ifa=3thenf$="payload"
  18. 40 :
  19. 50 printa:print"[204]oading "f$
  20. 60 poke646,peek(53281)
  21. 70 print"load"chr$(34)f$chr$(34)",8,1":print""r$""
  22. 72 poke631,13:poke632,13:poke198,2:end
  23. 80 :
  24. 99 print"";:fori=1to40:print"*";:forj=1to5:nextj,i:print"[144]":return
  25. 200 rem    sys ezdir
  26. 210 print"[147][144][154]"
  27. 220 sys820
  28. 230 print"[212]o re-enter [204][207][193][196][211][212][193][210], press [210][197][212][213][210][206]:":print"run[145][145][145]"
  29. 240 end
  30.